home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Utilities / ViewIt Shareware / ViewIt™ 2.04 Shareware / Projects / Pascal Demos / MinimumLP.pas < prev    next >
Pascal/Delphi Source File  |  1992-08-04  |  319b  |  18 lines
  1. {Minimum LP Demonstration Program}
  2. {©FaceWare 1991-92.  All Rights Reserved.}
  3.  
  4. program MinimumLP;
  5. {$I-}
  6.  
  7.     uses
  8.         FaceStorLP, FaceProcLP;
  9.  
  10. begin
  11.     fRec.uName := 'Minimum.Rsrc';
  12.     FaceIt(nil, DoInit, 0, 0, 0, 0);
  13.     FaceIt(nil, HlpWnd, 0, 0, 10, 10);  {optional}
  14.     repeat
  15.         FaceIt(nil, DoLoop, 0, 0, 0, 0);
  16.     until false;
  17.  
  18. end.